﻿<!--#include file="const.inc"-->
<%
'====================================================================
' 感谢使用晴天3G智能建站系统..
' 作者:梁永强.QQ:766750857
' 官方网址:wap.qt3g.com
' 声明:软件版权归作者所有,没有经过作者本人同意不得非法破解和传播本程序
'====================================================================
%>

<%
	dim nid,tilte,hr,we0,we,sou,dao,zi,zi0,body,dat,dat1
        id=Request.querystring("id")
	if id="" then id=1
	if not isnumeric(id) then id=1
	id=clng(id)
        nid=Request.querystring("nid")
	if nid="" then nid=qingtian.nid 
	if not isnumeric(nid) then nid=qingtian.nid
	nid=clng(nid)
if nid=qingtian.nid then
tilte="查看相片"
else
tilte="查看TA的相片"
Set rs = Server.CreateObject("ADODB.Recordset")
rs.Open "SELECT id FROM qingtian_user where id="&nid,conn,1,1
if rs.eof then
if v=0 then
%>
<card title="查看TA的相片"><p align="<%=qingtian.px%>">
<%
else
%>
<title>查看TA的相片</title>
</head>
<body>
<!--#include virtual="/css.inc"-->
<%
end if
qingtian.err("该会员不存在")
end if
  rs.close
  set rs=Nothing
end if
select case v
case "0"
we0="<br/>"
hr="-------------<br/>"
book="<input name=""pl"" type=""text"" maxlength=""300"" value="""" /><br/><anchor title=""发表"">发表评论<go href='photobbscl.asp?id="&id&"&amp;sid="&sidd&"' method='post'><postfield name=""pl"" value=""$(pl)"" /></go></anchor><br/>"&hr&""
%>
<card title="<%=tilte%>"><p align="<%=qingtian.px%>">
<%
case "1"
hr=""
zi="<span style=""color:#FF5500"">"
zi0="</span>"
we="<div class=""footer"">"
sou="<div class=""block4"">"
dao="<div class=""navi"">"
we0="</div>"
book=""&dao&"<form action=""photobbscl.asp?id="&id&"&amp;sid="&sidd&""" method=""post""><input type=""text"" name=""pl"" value="""" /><br/><input type=""submit"" value=""发表评论"" /></form>"&we0&""
%>
<title><%=tilte%></title>
</head>
<body>
<!--#include virtual="/css.inc"-->
<%
End Select
%>
<%
		if sid="Null" then
		%><%=we%><%=zi%>你好<%=qingtian.utf8(session("username"))%><%=zi0%><a href="/login.asp?sid=<%=sidd%>&amp;url=index.asp">注册/登陆</a><%=we0%><%
		else
		qingtian.info
		end if
response.write qingtian.qingsav("552")
set rs=Server.CreateObject("ADODB.Recordset")
rs.open"select * from qingtian_upfile where id="&id&" and smallstr=1",conn,1,1
if not (rs.bof and rs.eof)  then
nid=rs("fid")
Response.Write(""&dao&"<b><a href=""/user/spacev.asp?nid="&nid&"&amp;sid="&sidd&""">"&qingtian.utf8(qingtian.name(nid))&"的空间</a>&gt;<a href=""index.asp?nid="&nid&"&amp;sid="&sidd&""">Ta的相册</a>&gt;阅读</b>"&we0&""&hr&""&we&"")
if Request.querystring("act")=1 then
response.write("<img src='" & rs("files") & "' alt='图'/><br/>")
if rs("photoContent")<>"" then
response.write""&we0&""&we&"相片说明:"&qingtian.ubb2(rs("photoContent"))&""
else
response.write"<br/>相片说明:"&qingtian.ubb2(rs("filesname"))&""
end if

response.write"<br/>相片人气:"&rs("fileCount")&""

response.write"<br/>上传作者:"&rs("username")&"(ID:"&rs("fid")&")"&we0&""&hr&""&dao&""
response.write"<a href='" & rs("files") & "'>下载</a>|"
response.write"<a href='photoview.asp?id=" & rs("id") & "&amp;nid="&rs("fid")&"&amp;TP=1&amp;sid="&sidd&"'>小图</a>"
response.write"|<a href='/bbs/souzan.asp?name="&server.URLEncode("我喜欢的照片")&"&amp;urls=/photo/photoview.asp?id=" & rs("id") & "@@nid="&rs("fid")&"@@TP=1&amp;sid="&sidd&"'>收藏</a>"
else
response.write("<img src='" & rs("smallfiles") & "' alt='图'/><br/>")
if rs("photoContent")<>"" then
response.write""&we0&""&we&"相片说明:"&qingtian.ubb2(rs("photoContent"))&""
else
response.write"<br/>相片说明:"&qingtian.ubb2(rs("filesname"))&""
end if

response.write"<br/>相片人气:"&rs("fileCount")&""

response.write"<br/>上传作者:"&rs("username")&"(ID:"&rs("fid")&")"&we0&""&hr&""&dao&""
response.write"<a href='" & rs("smallfiles") & "'>下载</a>|"
response.write"<a href='photoview.asp?act=1&amp;id=" & rs("id") & "&amp;nid="&rs("fid")&"&amp;TP=1&amp;sid="&sidd&"'>大图</a>"
response.write"|<a href='/bbs/souzan.asp?name="&server.URLEncode("我喜欢的照片")&"&amp;urls=/photo/photoview.asp?id=" & rs("id") & "@@nid="&rs("fid")&"@@TP=1&amp;sid="&sidd&"'>收藏</a>"
end if
if rs("fid")=qingtian.nid or qingtian.bbs=true then
response.write"|<a href='getsave.asp?action=p&amp;nid="&rs("id")&"&amp;sid="&sidd&"'>删除</a>"
if rs("photoview")=0 then
response.write"<br/><a href='getsave.asp?action=pv&amp;nid="&rs("id")&"&amp;sid="&sidd&"'>&gt;设为私藏</a>"
else
response.write"<br/><a href='getsave.asp?action=pv&amp;nid="&rs("id")&"&amp;sid="&sidd&"'>&gt;设为公开</a>"
end if
end if
dim photocount
	photocount=conn.execute("Select count(ID) from [qingtian_photopl] where photoid="&id&"")(0)	

	response.write(""&we0&""&we&"<a href=""photobbs.asp?id="&rs("id")&"&amp;nid="&nid&"&amp;sid="&sidd&""">评论:("&photocount&")</a>"&we0&"")
conn.Execute("update qingtian_upfile set fileCount=fileCount+1 Where id=" & id)
response.write book
else
qingtian.err("该照片不存在")
end if
		Rs.close
	set rs=nothing
response.write qingtian.qingsav("553")
%>
<%=sou%><a href='p.asp?sid=<%=sidd%>'>返回社区相册</a><%=we0%>
 
<%

End Function
%>
